﻿Public Class FormAltaEquipo

    Private _miCampeonato As Campeonato
    Private _idJugadorCapitan As Integer
    Private _idJugadorNormal As Integer

    Public Property idJugadorCapitan As Integer
        Get
            Return Me._idJugadorCapitan
        End Get
        Set(value As Integer)
            Me._idJugadorCapitan = value
        End Set
    End Property

    Public Property idJugadorNormal As Integer
        Get
            Return Me._idJugadorCapitan
        End Get
        Set(value As Integer)
            Me._idJugadorNormal = value
        End Set
    End Property

    Private Sub FormAltaEquipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
        FormBuscarJugadores.Show()
        FormBuscarJugadores.formDestino = "FormAltaEquipo"
        FormBuscarJugadores.jugadorSeleccionadoEnForAltaEquipo = "J1"
    End Sub

    Private Sub btnBuscar2_Click(sender As Object, e As EventArgs) Handles btnBuscar2.Click
        FormBuscarJugadores.Show()
        FormBuscarJugadores.formDestino = "FormAltaEquipo"
        FormBuscarJugadores.jugadorSeleccionadoEnForAltaEquipo = "J2"
    End Sub

    Private Sub ButtonDarAlta_Click(sender As Object, e As EventArgs) Handles ButtonDarAlta.Click
        Dim nombreEquipo As Boolean = False

        If tbxNombreEquipo.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxNombreEquipo, "El nombre del equipo no puede estar vacío.")
        ElseIf tbxNombreEquipo.Text.Length > 50 Then
            ErrorProvider1.SetError(tbxNombreEquipo, "El nombre del equipo no puede exceder de 50 caracteres.")
        Else
            ErrorProvider1.SetError(tbxNombreEquipo, Nothing)
            nombreEquipo = True
        End If
        If nombreEquipo = True Then
            Me._miCampeonato.insertarEquipo(Me.tbxNombreEquipo.Text, Me._idJugadorCapitan, _
                                           _idJugadorNormal)
        End If
    End Sub

    Private Sub ButtonBorrar_Click(sender As Object, e As EventArgs) Handles ButtonBorrar.Click
        Me.Close()
    End Sub
End Class